0 IFA=1THEN15
1 POKE53280, 3:POKE53281,14:PRINT"[147][142]";
2 PRINT"[169]  [169]               "
3 PRINT" [162] [162]     [146] "
4 PRINT"      [146][169]       [146] "
5 PRINT"[162]  [146][162] [146]   [146] "
6 PRINT"  [146][169]  [146][169]            "
7 PRINT"[169][169]  [169]  "
8 PRINT"[169]   [146][184][169]"
9 PRINT"[169][146][169]    "
10 PRINT"[169]      [146][162] "
11 PRINT" [146]  [146][169] [146]  [146][169]"
12 PRINT"[149]BY"
13 PRINT"[144]BOBSWIFT"
14 PRINT"TPUG#507":A=1:LOAD"SCREEN 40.3.ML.D",8,1
15 GOSUB100
20 POKE53280, 6:POKE53281, 3:PRINT"[147]";
21 PRINT"[144]screen40.3"
22 PRINT"***********"
23 PRINT"tHISPROGRAMALLOWSYOUTODRAWONTHE"
24 PRINT"SCREENUSINGALLAVAILABLECOLORS,"
25 PRINT"CURSORCONTROLS,TEXTANDGRAPHICS"
26 PRINT"CHARACTERS.tHEPROGRAMEVENSENSESIF"
27 PRINT"YOUAREINUPPER/LOWERCASEORUPPER"
28 PRINT"CASE/GRAPHICS,ANDSETSUPTHESCREEN"
29 PRINT"ACCORDINGLY.wHENYOURSCREENIS"
30 PRINT"COMPLETE,THEPROGRAMWILLTHENWRITEA"
31 PRINT"basicPROGRAMTHATWILLRE-DRAWTHELOW"
32 PRINT"RESOLUTIONSCREEN."
33 PRINT"tHEMACHINELANGUAGEPROGRAMISRUNIN"
34 PRINT"THEFOLLOWINGMANNER:"
35 PRINT"sys49152,ln"
36 PRINT"WHERElnISTHEFIRSTLINENUMBEROFTHEFINISHEDPROGRAM.tHEMACHINEL";
37 PRINT"ANGUAGE"
38 PRINT"PROGRAMCANBERUNOVERANDOVERAGAIN"
39 PRINT"ASDESIRED."
40 GOSUB100
41 POKE53280, 8:POKE53281,11:PRINT"[147]";
42 PRINT"[144][211][195][210][197][197][206]40.3"
43 PRINT"***********"
44 PRINT"[195][207][205][205][193][206][196][211]:"
45 PRINT"<F1>=CHANGEBORDERCOLOR"
46 PRINT"<F3>=CHANGEBACKGROUNDCOLOR"
47 PRINT"<F2>=WRITE[194][193][211][201][195]PROGRAM"
48 PRINT"<F8>=EXITTO[194][193][211][201][195]"
49 PRINT"[210][197][205][197][205][194][197][210]:"
50 PRINT"[211][217][211]49152,[204][206]"
51 PRINT"WHERE[204][206]ISTHENUMBEROFTHEFIRSTLINEOF[194][193][211][201][195]CODE."
52 END
100 PRINT"[144]PRESSANYKEYTOCONTINUE":POKE198,0
101 GETA$:IFA$=""THEN101
102 RETURN